home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8506.arc / FIELDS2.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  896b  |  18 lines
  1. 100 DIM SP.NUM$(32)                     ' define array
  2. 110 OPEN "NUMBERS.DAT" AS #1 LEN=128    ' open file
  3. 115 FIELD 1, 128 AS NUMBR$              ' define entire record
  4. 120 FOR I=1 TO 32 
  5. 130 FIELD 1, (I*4-4) AS DUMMY$,4 AS SP.NUM$(I)  'map into array
  6. 140 NEXT I
  7. 150 TN$=""                            ' for temp number storage
  8. 160 FOR I=1 TO 32
  9. 170 R=RND : PRINT R; : TN$=TN$+MKS$(R)  ' pack RND into string
  10. 180 NEXT
  11. 190 LSET NUMBR$=TN$                   ' move to file buffer
  12. 195 PUT 1,1                           ' save the record
  13. 200 GET 1,1                           ' and retrieve it
  14. 210 PRINT : PRINT
  15. 220 FOR I=1 TO 32                     ' for each number
  16. 230 PRINT CVS(SP.NUM$(I));            ' re-print the RND values
  17. 240 NEXT                              ' end of loop
  18.